object FrmVendas: TFrmVendas
  Left = 201
  Top = 51
  BorderStyle = bsDialog
  Caption = 'Tela de Venda de produtos'
  ClientHeight = 487
  ClientWidth = 536
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poScreenCenter
  OnActivate = FormActivate
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 13
  object Label3: TLabel
    Left = 351
    Top = 211
    Width = 59
    Height = 13
    Caption = 'Data_venda'
  end
  object SpeedButton2: TSpeedButton
    Left = 472
    Top = 414
    Width = 45
    Height = 45
    Glyph.Data = {
      [encoded data, 10432 characters]
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
    OnClick = SpeedButton2Click
  end
  object Panel1: TPanel
    Left = 22
    Top = 15
    Width = 497
    Height = 180
    TabOrder = 0
    object Image1: TImage
      Left = 22
      Top = 79
      Width = 454
      Height = 87
      Picture.Data = {
        [encoded data, 83712 characters]
        1E0E93E0FC35F9F1FCFA45FF00947F4FF76FF5FF008D7D3DEBA7FF006F5FFFD9}
    end
    object RadioGroup1: TRadioGroup
      Left = 8
      Top = 12
      Width = 481
      Height = 57
      Caption = 'Tipo de Venda'
      Items.Strings = (
        'Avulsa'
        'Cliente')
      TabOrder = 0
      OnClick = RadioGroup1Click
    end
    object Edit1: TEdit
      Left = 89
      Top = 42
      Width = 336
      Height = 21
      CharCase = ecUpperCase
      TabOrder = 1
      Visible = False
      OnKeyDown = Edit1KeyDown
    end
    object wwDBGrid1: TwwDBGrid
      Left = 8
      Top = 73
      Width = 481
      Height = 94
      IniAttributes.Delimiter = ';;'
      TitleColor = clBtnFace
      FixedCols = 0
      ShowHorzScrollBar = False
      Color = clMenu
      DataSource = DMEscola.DSQconsultacli
      Options = [dgEditing, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgWordWrap]
      TabOrder = 2
      TitleAlignment = taLeftJustify
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      TitleLines = 1
      TitleButtons = False
      Visible = False
      OnKeyDown = wwDBGrid1KeyDown
      IndicatorColor = icBlack
    end
  end
  object Panel2: TPanel
    Left = 22
    Top = 195
    Width = 323
    Height = 45
    TabOrder = 3
    Visible = False
    object Label2: TLabel
      Left = 18
      Top = 17
      Width = 40
      Height = 13
      Caption = 'Cliente'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object DBText1: TDBText
      Left = 66
      Top = 17
      Width = 177
      Height = 17
      DataField = 'Nome'
      DataSource = DMEscola.DSQconsultacli
    end
    object DBText3: TDBText
      Left = 253
      Top = 15
      Width = 53
      Height = 17
      DataField = 'Codigo'
      DataSource = DMEscola.DSQconsultacli
    end
  end
  object Panel3: TPanel
    Left = 22
    Top = 240
    Width = 497
    Height = 57
    TabOrder = 2
    object Label1: TLabel
      Left = 164
      Top = 6
      Width = 49
      Height = 13
      Caption = 'Quatidade'
    end
    object Label7: TLabel
      Left = 17
      Top = 6
      Width = 37
      Height = 13
      Caption = 'Produto'
    end
    object Label8: TLabel
      Left = 244
      Top = 7
      Width = 70
      Height = 13
      Caption = 'Preço Unitário:'
    end
    object DBText2: TDBText
      Left = 246
      Top = 24
      Width = 65
      Height = 17
      DataField = 'Preco_Venda'
      DataSource = DMEscola.DSQProdutos
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      Visible = False
    end
    object Edit2: TEdit
      Left = 164
      Top = 21
      Width = 71
      Height = 21
      TabOrder = 1
      OnKeyPress = Edit2KeyPress
    end
    object RxLookupEdit1: TRxLookupEdit
      Left = 16
      Top = 21
      Width = 137
      Height = 21
      LookupDisplay = 'Descricao'
      LookupField = 'Descricao'
      LookupSource = DMEscola.DSQProdutos
      TabOrder = 0
      OnExit = RxLookupEdit1Exit
      OnKeyPress = RxLookupEdit1KeyPress
    end
    object RadioGroup2: TRadioGroup
      Left = 323
      Top = 7
      Width = 81
      Height = 47
      Caption = 'Tipo PGTO'
      Items.Strings = (
        'Pagar'
        'Marcar')
      TabOrder = 2
      OnClick = RadioGroup2Click
    end
    object BitBtn2: TBitBtn
      Left = 408
      Top = 19
      Width = 84
      Height = 25
      Caption = 'Adicionar Item'
      TabOrder = 3
      OnClick = BitBtn2Click
    end
  end
  object Panel4: TPanel
    Left = 22
    Top = 297
    Width = 497
    Height = 96
    TabOrder = 4
    object StringGrid1: TStringGrid
      Left = 6
      Top = 2
      Width = 481
      Height = 89
      DefaultColWidth = 40
      DefaultRowHeight = 18
      FixedCols = 0
      RowCount = 2
      TabOrder = 0
      ColWidths = (
        146
        80
        82
        90
        53)
    end
  end
  object GroupBox1: TGroupBox
    Left = 24
    Top = 408
    Width = 113
    Height = 52
    Caption = 'TOTAL'
    TabOrder = 5
    object Label6: TLabel
      Left = 11
      Top = 23
      Width = 17
      Height = 13
      Caption = 'R$'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Edit3: TEdit
      Left = 33
      Top = 19
      Width = 65
      Height = 21
      TabOrder = 0
      Text = '0'
    end
  end
  object GroupBox2: TGroupBox
    Left = 144
    Top = 408
    Width = 113
    Height = 52
    Caption = 'DESCONTO'
    TabOrder = 6
    object Label4: TLabel
      Left = 89
      Top = 23
      Width = 10
      Height = 13
      Caption = '%'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Edit4: TEdit
      Left = 22
      Top = 19
      Width = 61
      Height = 21
      TabOrder = 0
      Text = '0'
      OnExit = Edit4Exit
      OnKeyPress = Edit4KeyPress
    end
  end
  object GroupBox3: TGroupBox
    Left = 264
    Top = 408
    Width = 113
    Height = 52
    Caption = 'TOTAL FINAL'
    TabOrder = 7
    object Label5: TLabel
      Left = 13
      Top = 23
      Width = 17
      Height = 13
      Caption = 'R$'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Edit5: TEdit
      Left = 35
      Top = 19
      Width = 61
      Height = 21
      TabOrder = 0
      Text = '0'
    end
  end
  object Button1: TButton
    Left = 384
    Top = 414
    Width = 86
    Height = 23
    Hint = 'Cliente pagará a sua compra'
    Caption = 'Pagar - F2'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 8
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 384
    Top = 437
    Width = 86
    Height = 23
    Caption = 'Marcar - F3'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 9
    OnClick = Button2Click
  end
  object DBDateEdit1: TDBDateEdit
    Left = 416
    Top = 206
    Width = 89
    Height = 21
    DataField = 'Data_venda'
    DataSource = DMEscola.DSQvenda
    DefaultToday = True
    DialogTitle = 'Selecione outra Data'
    NumGlyphs = 2
    TabOrder = 1
    OnKeyPress = DBDateEdit1KeyPress
  end
  object Panel5: TPanel
    Left = 383
    Top = 313
    Width = 1
    Height = 1
    BevelInner = bvLowered
    TabOrder = 10
    Visible = False
    object Label9: TLabel
      Left = 6
      Top = 13
      Width = 45
      Height = 13
      Caption = 'TOTAL:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object RxLabel1: TRxLabel
      Left = 57
      Top = 10
      Width = 78
      Height = 20
      Caption = 'RxLabel1'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Bevel1: TBevel
      Left = 5
      Top = 28
      Width = 128
      Height = 2
      Shape = bsTopLine
    end
    object Label10: TLabel
      Left = 3
      Top = 37
      Width = 53
      Height = 16
      Caption = 'Dinheiro:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Bevel2: TBevel
      Left = 5
      Top = 57
      Width = 128
      Height = 2
      Shape = bsTopLine
    end
    object Label11: TLabel
      Left = 6
      Top = 60
      Width = 48
      Height = 13
      Caption = 'TROCO!'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object RxLabel2: TRxLabel
      Left = 7
      Top = 75
      Width = 8
      Height = 20
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Edit6: TEdit
      Left = 56
      Top = 32
      Width = 75
      Height = 24
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnKeyDown = Edit6KeyDown
    end
    object BitBtn1: TBitBtn
      Left = 99
      Top = 64
      Width = 32
      Height = 28
      TabOrder = 1
      OnClick = BitBtn1Click
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        8888888800008888888888888888888800008888FFFFFFFFFFFFF88800008887
        404040404040F88800008887040408840404F88800008887404089984040F888
        00008887040899998404F88800008887408999999840F8880000888777778998
        7777888800008888888889988888888800008888FFFF8998FFFFF88800008887
        BFBF8998BFBFF88800008887FBFB8998FBFBF88800008887BFBF8888BFBFF888
        00008887FBFBFBFBFBFBF88800008887BFBFBFBFBFBFF88800008887FBFBFBFB
        FBFBF88800008887777777777777888800008888888888888888888800008888
        88888888888888880000}
    end
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 1
    OnTimer = Timer1Timer
    Left = 328
    Top = 463
  end
  object Timer2: TTimer
    Enabled = False
    Interval = 1
    OnTimer = Timer2Timer
    Left = 352
    Top = 463
  end
end
